100 POKE53280,0:POKE53281,0:PRINT"[147]"
130 POKE788,52
140 POKE55,0:POKE56,64:CLR:A$=""
142 DV=PEEK(186):IFDV<8THENDV=8
143 DIM R$(11),C(11),AN$(13,13)
145 GOSUB60000
155 DEF FND(I)=20-(LEN(AN$(X,I))/2)
160 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
170 SYS57812"PACKAGE.O",DV,0:POKE780,0:POKE781,80:POKE782,195:SYS65493
180 SYS57812"BIRDS TITLE.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
190 POKE251,64:POKE252,224:POKE253,204:SYS51456
195 POKE252,224:POKE253,204:SYS51459
200 IP=50000:UNPACK=51456:HGR=51459
210 PS=50006:BA=50009
220 OPEN2,DV,2,"BIRDS TEXT,P,R"
222 J=1:K=0:FORI=0TO1:SYSIP,2,40:I=ST
224 IFA$="*"THENJ=J+1:K=0:GOTO228
226 K=K+1:AN$(J,K)=A$
228 NEXT:CLOSE2
230 READNP
240 FORX=1TONP:READR$(X),C(X)
250 NEXT
260 SYSHGR
270 FORX=1TONP
280 GOSUB1810
290 SYS57812R$(X),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
310 GOSUB1910:IFA$="Q"ORA$="[209]"THENGOSUB1250
312 GOSUB2000
320 E(X)=PEEK(53281)
340 KK=0:POKE198,0
355 IFZ3=0THEN360
357 Z4=Z4+1:Z4=Z4AND15
358 POKE53281,Z4
360 KK=KK+1:GETA$:IFA$=""ANDKK<800THEN355
370 IFA$="Q"ORA$="[209]"THENGOSUB1250
380 IFA$="S"ORA$="[211]"THEN 470
390 IFA$<>CHR$(133)THEN410
400 Z1=Z1+1:Z1=Z1AND15
405 POKE53280,Z1:GOTO340
410 IFA$<>CHR$(134)THEN416
412 Z2=Z2+1:Z2=Z2AND15
415 POKE53281,Z2:GOTO340
416 IFA$<>CHR$(135)THEN420
417 Z3=1-Z3:IFZ3=0THENPOKE53281,E(X)
419 GOTO340
420 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
430 GOTO270
440 :
450 REM SAVE KOALA PIC
460 :
470 SYS HGR
480 POKE53280,0:POKE53281,0
490 PRINT"[147][154]":POKE214,11:PRINT
500 PRINT"   [211]AVE THIS UNPACKED PICTURE? (Y[154]/N[154])":POKE198,0
510 GETA$:IFA$<>"Y"ANDA$<>"N"THEN510
520 IFA$="Y"THEN560
530 GOTO1110
550 :
560 PRINT"[147][154]":POKE214,9:PRINT
570 PRINT" [201]NSERT SAVE DISK AND ENTER A FILENAME."
580 :
590 PRINT"       [206]AME : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]PIC ";
600 LN%=10:SP$="                "
610 GOSUB690:IFNM$=""THEN1110
620 NM$=LEFT$(CHR$(129)+"PIC "+NM$+SP$,15)
650 GOTO820
680 REM --- INPUT ROUTINE ---
690 NM$="":X%=0:C%=PEEK(646)
700 PRINT"[152][164][157]";:POKE646,C%
710 GETA$:IFA$=""THEN710
720 A%=ASC(A$)
730 IFA%=20ANDX%THENX%=X%-1:NM$=LEFT$(NM$,LEN(NM$)-1):PRINT" [157][157]";:GOTO700
740 IFA%=20THEN710
750 IFA%=13THENPRINT" ":RETURN
760 IFX%=LN%THEN710
770 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]"ORA%=34THEN710
780 NM$=NM$+A$:PRINT""A$;:X%=X%+1:GOTO700
790 :
800 REM -- CHECK FOR 'FILE EXISTS' --
810 :
820 OPEN15,DV,15,"R0:"+NM$+"="+NM$:INPUT#15,ER,ER$:CLOSE15
830 IFER<>62THENGOSUB1160:GOTO1110
840 :
850 REM ---      SAVE PIC       ---
860 :
920 GOSUB2000:NM$=NM$+",P,W"
930 SYSPS,NM$:SYSHGR
950 :
960 REM --- CHECK FOR ERRORS ---
970 :
980 OPEN15,DV,15:INPUT#15,ER,ER$,Y$,Z$:CLOSE15
990 IFERTHENGOSUB1160:GOTO490
1000 :
1010 REM --    EVERYTHING OK    ---
1020 :
1030 POKE53280,0:POKE53281,0
1040 PRINT"[147][154]":POKE214,7:PRINT
1050 PRINT"             [211]AVING COMPLETE."
1060 PRINT"   [201]F NECESSARY, PUT THE DISK IN"
1070 PRINT"     THE DRIVE AND PRESS [211][208][193][195][197][154]."
1080 GETA$:IFA$<>" "THEN1080
1090 OPEN15,DV,15,"R0:PACKAGE.O=PACKAGE.O":INPUT#15,ER:CLOSE15
1100 IFER<>63 THEN 1040
1110 SYSHGR:GOTO420
1140 :
1150 REM ---   PRINT DOS ERROR MSG ---
1160 :
1170 POKE53280,.:POKE53281,.:PRINT"[147]        [129] [196] [201] [211] [203]   [197] [210] [210] [207] [210] !
1180 [151]214,10:[153]
1190 A$[178]"PRINT#VALRROR #"[170][196](ER)[170]"PRINT#,"[170]ER$
1200 X%[178]22[171][195](A$)[173]2:[153][163]X%);A$
1210 [151]214,21:[153]
1220 [153]"PRINT#        (null)RESS (null)(null)ATNLENVALPRINT# TO CONTINUE."
1230 [161]A$:[139]A$[179][177]" "[167]1230
1240 [142]
1250 O[178][194](53270)[175]16
1255 [139]O[167][158]51459
1260 [151]53281,0:[151]53280,0
1270 [153]"LOADCONT  ATNRE YOU SURE YOU WANT TO QUIT? (YCONT/NCONT)"
1280 [151]198,0:[146]198,1:[161]AG$
1290 [139]AG$[178]"Y"[176]AG$[178]"(null)"[167]1330
1295 [139]O[167][158]51459
1300 [142]
1320 [143] QUIT
1330 [137]40000
1380 [143] DATA <TITLE>,<BORDER COLOR>
1390 [131] 9
1400 [131] KESTREL.SHP,3
1410 [131] PEREGRINE.SHP,14
1420 [131] RED TAILED.SHP,6
1430 [131] EAGLE.SHP,0
1440 [131] MARSH HAWK.SHP,8
1450 [131] OSPREY.SHP,14
1460 [131] SNOWY OWL.SHP,1
1470 [131] GOSHAWK.SHP,14
1480 [131] BALD EAGLE.SHP,0
1500 :
1770 [153]"";
1800 :
1810 [151]53281,5:[151]53280,5
1820 [153]"LOADSTOPORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1830 [129]QX[178]1[164]13
1840 [153]"(null)"[163]38)"(null)":[130]
1850 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1860 [129]LX[178]217[164]217[170]26:[151]LX,([194](LX)[176]128):[130]
1870 [153]"STOP"
1872 [129]I[178]1[164]2:[153][163][165]D(I))AN$(X,I):[130]:[153]""
1880 [129]I[178]3[164]12:[139]AN$(X,I)[178]""[167]1886
1882 [153][163][165]D(I))AN$(X,I)
1886 [130]
1900 [142]
1910 KK[178]0
1915 [151]214,15:[153]:[153]"STOP     (null)HILE THE SLIDE IS SHOWING..."
1916 [153]"   ASC1 SYS- CHANGES BORDER COLOR"
1917 [153]"   ASC3 SYS- CHANGES BACKGROUND COLOR"
1918 [153]"   ASC5 SYS- TOGGLES RADIOACTIVE BIRD SHOW
1919 PRINT"    [211] [158]- TAKES YOU TO [211][193][214][197] ROUTINE"
1920 PRINT"    [209] [158]- QUITS"
1925 POKE214,23:PRINT
1930 PRINT"[144][208]RESS [209] TO QUIT - [193]NY OTHER TO CONTINUE[145]"
1940 KK=KK+1:GETA$:IFA$<>""ORKK>1000THENRETURN
1950 GOTO1940
1980 :
1990 :
2000 PRINT"[147]";:IFFHTHENPOKE254,0:SYSBA:GOTO2040
2020 POKE251,64:POKE252,224:POKE253,204
2030 SYSUN
2040 POKE53280,C(X):POKE252,224:POKE253,204:SYSHGR:RETURN
2050 RETURN
10000 D=PEEK(186):N$="B.BIRDS OF PREY":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT:POKE788,49
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="PRESENTER":GOSUB40040:A$="HELLO CONNECT"
40040 FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40050 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40070
40060 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40090
40070 NEXT:IFA$="PRESENTER"THENRETURN
40080 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40090 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40100 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40110 PRINT"P[207]53272,23:RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO8:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[194] [201] [210] [196] [211]   [207] [198]   [208] [210] [197] [217]":Z$(1)="[193] [211]LIDESHOW BY [215]ALT [200]ARNED"
60040 Z$(2)="([195]) 1996 BY [202]&[198] [208]UBLISHING, [201]NC.
60050 Z$(4)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60060 Z$(5)="OR IN THE PUBLIC DOMAIN.
60080 Z$(6)[178]"1-800-594-3370 OR 1-318-221-8718"
60090 [151]214,12:[153]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]